home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / tex / texify-1.12.lzh / TeXifySetMacro.ced < prev    next >
Text File  |  1991-06-23  |  2KB  |  48 lines
  1. /********************************************************************************/
  2. /* ARexx program         TeXifySetMacro    V 1.02    (Jun 91)        */
  3. /*                                        */
  4. /*              With  this  ARexx  program you can set TeX's        */
  5. /*              macropackage  from  within  CEDPro.   TeXify        */
  6. /*              will notice a macro change.  This program is        */
  7. /*              part  of  the  great  TeXify package and may        */
  8. /*              only  be  spread as part of it.  For further        */
  9. /* Copyright 1990      information  see  the  additional readme and        */
  10. /* by Wolf-Juergen Faust  arexx files you MUST get with this program !        */
  11. /* Am Dorfgarten 10      For   a   new   TeXify   version  call  FIDO        */
  12. /* W-6000 Frankfurt 50      +(49) 6173 2544 (HST DS) or contact me...        */
  13. /* Germany                                    */
  14. /* FIDO: 2:243/43.5 (Wolf Faust)                        */
  15. /* UUCP: cbmvax.commodore.com!cbmehq!cbmger!venus!wfaust            */
  16. /* Tel: +(49) 69 5486556                            */
  17. /*                                        */
  18. /*    YOU MUST ADOPT THE FIRST COMMAND TO YOUR ENVIRONMENT !!!!!!!!!!!!    */
  19. /*    =================================================================    */
  20. /*                                        */
  21. /* Versions needed:                                */
  22. /* ARexx >= V 1.15                                */
  23. /* CEDPro>= V 2.00                                */
  24. /* TeX   >= V 3.1d                                */
  25. /********************************************************************************/
  26.  
  27. /* Insert path for Commo's "Setenv" command:                    */
  28. setpath = "Setenv"
  29.  
  30. /*** START ***/
  31. /*** program receives answers ***/
  32. options results
  33.  
  34. /*** now lets get to business with CygnusEd ***/
  35. address 'rexx_ced'
  36.  
  37. 'GetString' "plain" "Macropackage ?"
  38. macro = result
  39. if (macro="") | (macro="RESULT") then do
  40.     okay1 "No selection ?? Aborted..."
  41.     exit
  42.     end
  43. okay2 "Set macropackage = "||macro||" ?"
  44. if ( result = 0) then exit
  45.  
  46. address command setpath||' texformat '||macro
  47. if (show('P','AMIGATEX')) then address 'AMIGATEX' 'Exit'
  48.